Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue35/RTTI/TestForm.dfm/TestForm.txt

Text File | 1998-04-12 | 3.0 KB | 172 lines

object Form1: TForm1
  Left = 252
  Top = 212
  Width = 345
  Height = 332
  Caption = 'RTTI Demo'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lblName: TLabel
    Left = 8
    Top = 16
    Width = 31
    Height = 13
    Caption = 'Name:'
  end
  object lblAge: TLabel
    Left = 8
    Top = 48
    Width = 22
    Height = 13
    Caption = 'Age:'
  end
  object lblSex: TLabel
    Left = 8
    Top = 80
    Width = 21
    Height = 13
    Caption = 'Sex:'
  end
  object btnExport: TButton
    Left = 176
    Top = 272
    Width = 75
    Height = 25
    Caption = '&Export'
    TabOrder = 7
    OnClick = btnExportClick
  end
  object btnImport: TButton
    Left = 96
    Top = 272
    Width = 75
    Height = 25
    Caption = '&Import'
    TabOrder = 6
    OnClick = btnImportClick
  end
  object btnExit: TButton
    Left = 256
    Top = 272
    Width = 75
    Height = 25
    Caption = 'E&xit'
    TabOrder = 8
    OnClick = btnExitClick
  end
  object edtName: TEdit
    Left = 96
    Top = 16
    Width = 233
    Height = 21
    TabOrder = 0
    Text = 'Fred Bloggs'
  end
  object edtAge: TEdit
    Left = 96
    Top = 48
    Width = 121
    Height = 21
    TabOrder = 1
    Text = '35'
  end
  object cboSex: TComboBox
    Left = 96
    Top = 80
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Unknown'
      'Male'
      'Female')
    TabOrder = 2
  end
  object btnSQLInsert: TButton
    Left = 96
    Top = 240
    Width = 75
    Height = 25
    Caption = 'S&QL Insert'
    TabOrder = 3
    OnClick = btnSQLInsertClick
  end
  object btnSQLUpdate: TButton
    Left = 176
    Top = 240
    Width = 75
    Height = 25
    Caption = 'SQL &Update'
    TabOrder = 4
    OnClick = btnSQLUpdateClick
  end
  object btnSQLSelect: TButton
    Left = 256
    Top = 240
    Width = 75
    Height = 25
    Caption = 'SQL &Select'
    TabOrder = 5
    OnClick = btnSQLSelectClick
  end
  object grpPets: TGroupBox
    Left = 96
    Top = 112
    Width = 233
    Height = 113
    Caption = 'Pets'
    TabOrder = 9
    object chkDog: TCheckBox
      Left = 16
      Top = 16
      Width = 97
      Height = 17
      Caption = 'Dog'
      TabOrder = 0
    end
    object chkCat: TCheckBox
      Left = 16
      Top = 40
      Width = 97
      Height = 17
      Caption = 'Cat'
      TabOrder = 1
    end
    object chkRabbit: TCheckBox
      Left = 16
      Top = 64
      Width = 97
      Height = 17
      Caption = 'Rabbit'
      TabOrder = 2
    end
    object chkHamster: TCheckBox
      Left = 16
      Top = 88
      Width = 97
      Height = 17
      Caption = 'Hamster'
      TabOrder = 3
    end
  end
  object pioImporter: TPropertyImporter
    OnObjectImported = pioImporterObjectImported
    Left = 8
    Top = 272
  end
  object pioExporter: TPropertyExporter
    FileName = 'C:\Temp\Export.TXT'
    Left = 40
    Top = 272
  end
end